home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / basic / apbsu106.zip / DISPLAY.BAS < prev    next >
BASIC Source File  |  1991-05-26  |  267b  |  15 lines
  1. set break on
  2. open "c:\pcwrite\astrolog\encyclop\astrolo1.doc" for input as #1
  3.   while not eof(1)
  4.     line input #1, nextline$
  5.     print nextline$
  6.     if inkey$=chr$(32) then gosub wait
  7.   wend
  8. close #1
  9. end
  10. wait:
  11. a$=inkey$
  12. if a$="" then goto wait
  13. return
  14.  
  15.